home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Dealing with Change / Workplace Effectiveness: Dealing with Change.iso / pc / Tools.Dxr / Internal_401_Plotting change handlers.ls < prev    next >
Encoding:
Text File  |  1998-05-04  |  2.4 KB  |  92 lines
  1. global gGraphScores
  2.  
  3. on goPlot
  4.   global gMasterData
  5.   go(label("plot"))
  6.   goNarrator(gMasterData, "56")
  7.   setUserArea(gMasterData, #plot)
  8.   if voidp(gGraphScores) then
  9.     set gGraphScores to [0, 0, 0, 0, 0, 0, 0, 0, 0]
  10.   else
  11.     reSetSliders()
  12.   end if
  13.   setHandCursor(#on, [4, 5, 6, 7, 8, 9, 10, 11, 12])
  14. end
  15.  
  16. on exitPlot
  17.   global checkMarks2
  18.   getGraphPlot()
  19.   setPuppetState([4, 12], #c, 0)
  20.   setHandCursor(#off, [4, 5, 6, 7, 8, 9, 10, 11, 12])
  21.   if getaProp(checkMarks2, #plot) = 0 then
  22.     setaProp(checkMarks2, #plot, 1)
  23.   end if
  24. end
  25.  
  26. on moveSlider thisSprite
  27.   puppetSound(1, "graph1.aif")
  28.   set vMinHz to 178
  29.   set vMaxHz to 601
  30.   set vVertPos to the locV of sprite thisSprite
  31.   puppetSprite(thisSprite, 1)
  32.   set vNewLocH to vMinHz
  33.   repeat while the mouseDown
  34.     set vPlotLoc to the mouseH
  35.     case 1 of
  36.       (vPlotLoc < vMinHz):
  37.         set the loc of sprite thisSprite to point(vMinHz, vVertPos)
  38.         set vNewLocH to vMinHz
  39.       (vPlotLoc > vMaxHz):
  40.         set the loc of sprite thisSprite to point(vMaxHz, vVertPos)
  41.         set vNewLocH to vMaxHz
  42.       otherwise:
  43.         set the loc of sprite thisSprite to point(vPlotLoc, vVertPos)
  44.         set vNewLocH to vPlotLoc
  45.     end case
  46.     updateStage()
  47.   end repeat
  48.   puppetSound(1, "graph2.aif")
  49.   set vDivDistance to 47.0
  50.   set vDivNumber to integer((vNewLocH - vMinHz) / vDivDistance)
  51.   set snapPointH to integer(vDivNumber * vDivDistance) + vMinHz
  52.   set the loc of sprite thisSprite to point(snapPointH, vVertPos)
  53.   scoreSlider(thisSprite, vDivNumber)
  54. end
  55.  
  56. on scoreSlider thisSprite, userChoice
  57.   setAt(gGraphScores, thisSprite - 3, userChoice + 1)
  58. end
  59.  
  60. on clearGraph
  61.   setPuppetState([4, 12], #c, 0)
  62.   set the text of member "situation" to EMPTY
  63.   updateStage()
  64.   set gGraphScores to [0, 0, 0, 0, 0, 0, 0, 0, 0]
  65. end
  66.  
  67. on DoneGraph
  68.   getGraphPlot()
  69.   print(the text of member "plot results")
  70.   diskAudio(gMasterData, "56B")
  71. end
  72.  
  73. on reSetSliders
  74.   set vMinHz to 178
  75.   set vMaxHz to 601
  76.   set numPositions to 10
  77.   set vDivDistance to 1.0 * (vMaxHz - vMinHz) / (numPositions - 1)
  78.   repeat with thisOne = 1 to 9
  79.     set thisSprite to thisOne + 3
  80.     set thisAnswer to getAt(gGraphScores, thisOne)
  81.     set vVertPos to the locV of sprite thisSprite
  82.     if thisAnswer = 0 then
  83.       puppetSprite(thisSprite, 0)
  84.       next repeat
  85.     end if
  86.     puppetSprite(thisSprite, 1)
  87.     set snapPointH to integer((thisAnswer - 1) * vDivDistance) + vMinHz
  88.     set the loc of sprite thisSprite to point(snapPointH, vVertPos)
  89.   end repeat
  90.   updateStage()
  91. end
  92.